ALTER VIEW DBO.TRB_RESUMO_CONFISSAO_VI AS 

SELECT  
	TRB_EMPR_VI.PES_COD_EMPRESA,
	(SELECT COUNT(*) FROM TRB_PARCELAMENTO_CONFISSAO P WHERE P.PAC_NUMERO = TRB_PARCELAMENTO_CONFISSAO.PAC_NUMERO ) AS TOTAL_CONFISSAO,

/*	(SELECT SUM(L.LAN_VALOR_ORIGINAL + L.LAN_JUROS + L.LAN_MULTA_MORA + L.LAN_CORRECAO_MONETARIA - L.LAN_VALOR_DESCONTO + L.LAN_VALOR_HONORARIO) 
		FROM TRB_PARCELAMENTO_CONFISSAO P 
		LEFT JOIN TRB_LANCAMENTO L ON   L.TLA_COD = P.TLA_COD 
		WHERE P.PAC_NUMERO = TRB_PARCELAMENTO_CONFISSAO.PAC_NUMERO 
		AND L.LAN_COD NOT IN (SELECT LAN_COD FROM TRB_BAIXA WHERE BXA_SITUACAO = 'N') AND ( TRB_PARCELAMENTO_CONFISSAO.PAC_SITUACAO <> 'S' )) AS TOTAL_CORRIGIDO, 
*/
	(SELECT SUM( DBO.TRB_CALCULOCORRECAO_VALOR (DATACORRENTE, LAN_DATA_VENCTO, LAN_VALOR_ORIGINAL, 0, 12) )
		FROM TRB_PARCELAMENTO_CONFISSAO P 
		LEFT JOIN TRB_LANCAMENTO L ON   L.TLA_COD = P.TLA_COD 
		CROSS JOIN CURRENT_ENVIROMENT
		WHERE P.PAC_NUMERO = TRB_PARCELAMENTO_CONFISSAO.PAC_NUMERO 
		AND L.LAN_COD NOT IN (SELECT LAN_COD FROM TRB_BAIXA WHERE BXA_SITUACAO = 'N') AND ( TRB_PARCELAMENTO_CONFISSAO.PAC_SITUACAO <> 'S' )) AS TOTAL_CORRIGIDO, 


       (SELECT SUM(L.LAN_VALOR_ORIGINAL) FROM TRB_PARCELAMENTO_CONFISSAO P LEFT JOIN TRB_LANCAMENTO L ON   L.TLA_COD = P.TLA_COD WHERE P.PAC_NUMERO = TRB_PARCELAMENTO_CONFISSAO.PAC_NUMERO AND L.LAN_COD NOT IN (SELECT LAN_COD FROM TRB_BAIXA WHERE BXA_SITUACAO = 'N') AND ( TRB_PARCELAMENTO_CONFISSAO.PAC_SITUACAO <> 'S' ) ) AS TOTAL_ORIGINAL,

        TRB_PARCELAMENTO_CONFISSAO.PAC_DATA
         --YEAR(TRB_PARCELAMENTO_CONFISSAO.PAC_DATA)
FROM 
     TRB_PARCELAMENTO_CONFISSAO TRB_PARCELAMENTO_CONFISSAO
      LEFT OUTER JOIN TRB_LANCAMENTO TRB_LANCAMENTO ON 
     (TRB_LANCAMENTO.TLA_COD = TRB_PARCELAMENTO_CONFISSAO.TLA_COD)
      INNER JOIN TRB_EMPR_VI TRB_EMPR_VI ON 
     (TRB_EMPR_VI.PES_COD_EMPRESA = TRB_PARCELAMENTO_CONFISSAO.PES_COD_EMPRESA)
      LEFT OUTER JOIN TRB_FISCAL_VI TRB_FISCAL_VI ON 
     (TRB_FISCAL_VI.PES_COD_FISCAL = TRB_PARCELAMENTO_CONFISSAO.PES_COD_FISCAL)
WHERE
      TRB_LANCAMENTO.LAN_COD NOT IN (SELECT LAN_COD FROM TRB_BAIXA WHERE BXA_SITUACAO = 'N')
      AND ( TRB_PARCELAMENTO_CONFISSAO.PAC_SITUACAO <> 'S' ) 
      AND TRB_LANCAMENTO.LAN_SITUACAO <> 'S' 
      AND( YEAR(TRB_PARCELAMENTO_CONFISSAO.PAC_DATA) ) >= 2003 
      --AND( YEAR(TRB_PARCELAMENTO_CONFISSAO.PAC_DATA) ) = 2003 
     --- AND TRB_EMPR_VI.PES_COD_EMPRESA = '10364754'
      AND TRB_EMPR_VI.PES_NOME NOT LIKE  '%CONTRIBUINTE TESTE%'
      AND TRB_FISCAL_VI.FIS_MATRICULA = '0004'
     
GROUP BY  
         TRB_PARCELAMENTO_CONFISSAO.PAC_NUMERO,
         TRB_PARCELAMENTO_CONFISSAO.PAC_SITUACAO,
         TRB_PARCELAMENTO_CONFISSAO.TLA_COD,
         TRB_PARCELAMENTO_CONFISSAO.PAC_DATA,
         TRB_EMPR_VI.PES_COD_EMPRESA
GO

--select * from sysobjects where name like '%correcao%'
-- select * from CALCULOCORRECAO